home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 June / 64er_Magazin_86-06_1986_Markt__Technik_de_Side_A.d64 / block bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  657b  |  20 lines
  1. 10 rem ******* verschieben mit dem block-programm *******
  2. 20 printchr$(147):rem c 128 = wait0,1
  3. 30 poke53280,0:poke53281,5
  4. 40 poke241,1:rem c64 = poke646,1
  5. 50 rem ----- farbram belegen -----
  6. 60 for i=0 to 1000:poke55296+i,1:nexti:rem dauert ein wenig!
  7. 70 rem ----- bildschirm belegen -----
  8. 80 s=1504:rem startadresse quelle
  9. 90 for i=0 to 39:pokes+i,i:nexti
  10. 100 rem ----- parameter abfragen -----
  11. 110 input"wieviele bytes (sinnvoll 0 bis 40)";n
  12. 120 input"zielort (sinnvoll 1024 bis 1984)";z
  13. 130 rem ----- berechnen und uebergabe -----
  14. 140 a=int(s/256):poke255,a:poke254,s-256*a
  15. 150 a=int(z/256):poke253,a:poke252,z-256*a
  16. 160 a=int(n/256):poke251,a:poke250,n-256*a
  17. 170 rem ----- verschieben -----
  18. 180 sys4864:rem c64 = sys 49152
  19. 190 end
  20.